clc,clear
load("altitude_tokyo.mat")
l=length(x_altitude)
GR=zeros(1,l);
for i=1:l-1
GR(1,i)=y_altitude(i+1,1) - y_altitude(i,1);
end
GR(1,l)=GR(1,1);
%plot(GR)